home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / util / sys / SavInstaller.lha / installer / examples / sysinfo.installer < prev    next >
Text File  |  1998-10-01  |  924b  |  25 lines
  1.  
  2. (procedure version-to-string #ver ("%ld.%ld" (/ #ver 65536) (bitand #ver 65535)))
  3.  
  4. ; some information
  5. (message "Your configuration!\n\n\n"
  6.          "Installer version: " (version-to-string @installer-version) "\n"
  7.          "Savage-Installer: " (if @savage-installer (version-to-string @savage-installer) "No") "\n"
  8.          "\n---------------\n\n"
  9.          "CPU: " (database "CPU") "\n"
  10.          "FPU: " (database "FPU") "\n"
  11.          "MMU: " (database "MMU") "\n"
  12.          "\n"
  13.          "OS version: " (database "os-ver") "\n"
  14.          "\n"
  15.          ("Todays date is %s\nAnd it`s %s o`clock\n" (database "date") (database "time"))
  16.          "\n"
  17.          "free CHIP: " (database "graphics-mem") "\n"
  18.          "free FAST: " (database "fast-mem") "\n"
  19.          "free total: " (database "total-mem") "\n"
  20.          "\n"
  21.          "Chipset: " (database "chiprev") "\n"
  22.          "Graphics System: " (database "gfxsystem") "\n"
  23. )
  24.  
  25.